From: Jim Blandy Date: Sun, 14 Mar 1993 00:43:19 +0000 (+0000) Subject: * diary-insert.el (insert-anniversary-diary-entry, X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96894 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=730ebc50d6b1b6d955ac78e5495d68427518ac67;p=emacs.git * diary-insert.el (insert-anniversary-diary-entry, insert-block-diary-entry): Fix calendar-date-display-form used. --- diff --git a/lisp/diary-ins.el b/lisp/diary-ins.el index 49c6836c20f..243220b69df 100644 --- a/lisp/diary-ins.el +++ b/lisp/diary-ins.el @@ -103,20 +103,28 @@ Prefix arg will make the entry nonmarking." "Insert an anniversary diary entry for the date given by point. Prefix arg will make the entry nonmarking." (interactive "P") - (make-diary-entry - (format "%s(diary-anniversary %s)" - sexp-diary-entry-symbol - (calendar-date-string - (or (calendar-cursor-to-date) - (error "Cursor is not on a date!")) - nil t)) - arg)) + (let* ((calendar-date-display-form + (if european-calendar-style + '(day " " month " " year) + '(month " " day " " year)))) + (make-diary-entry + (format "%s(diary-anniversary %s)" + sexp-diary-entry-symbol + (calendar-date-string + (or (calendar-cursor-to-date) + (error "Cursor is not on a date!")) + nil t)) + arg))) (defun insert-block-diary-entry (arg) "Insert a block diary entry for the days between the point and marked date. Prefix arg will make the entry nonmarking." (interactive "P") - (let* ((cursor (or (calendar-cursor-to-date) + (let* ((calendar-date-display-form + (if european-calendar-style + '(day " " month " " year) + '(month " " day " " year))) + (cursor (or (calendar-cursor-to-date) (error "Cursor is not on a date!"))) (mark (or (car calendar-mark-ring) (error "No mark set in this buffer")))